home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 47 / Amiga Format AFCD47 (Issue 131, Xmas 1999).iso / -serious- / -commercial- / newsrog / arexx / sendtoyam.rexx
OS/2 REXX Batch file  |  1999-10-04  |  678b  |  33 lines
  1. /* -- procedure to send article via email using YAM ----------------------- */
  2.  
  3.  
  4. /* Argument parsing in ARexx is brain-damaged */
  5.  
  6. parse arg '"' ReplyTo '"' ':=:' '"' Subj '"' ':=:' '"' FSpec '"' rest
  7.  
  8. /* Prepend Re: if needed */
  9.  
  10. if left(Subj,4) ~= 'Re: '
  11. then Subj='Re: '||Subj
  12.  
  13. /* If YAM isn't running, try to launch it */
  14.  
  15. if pos('YAM', (show(ports))) = 0 then do
  16.    address command 'run YAM:YAM'
  17.    do while pos('YAM', (show(ports))) == 0
  18.       address command 'wait 1 sec'
  19.    end
  20. end
  21.  
  22. /* Ship it off to YAM, again handling ARexx brain-damage */
  23.  
  24. address YAM
  25.  
  26. Show
  27. MailWrite
  28. WriteMailTo  '"'||ReplyTo||'"'
  29. WriteSubject '"'||Subj||'"'
  30. WriteLetter  '"'||FSpec||'"'
  31.  
  32. return 0
  33.